home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / ANIMOOP.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-06  |  1KB  |  57 lines
  1. {$F+}
  2. USES videochk,
  3.      TGraph,
  4.      crt,
  5.      SoundUnt,
  6.      FastGrph,
  7.      TEGLMain,
  8.      TEGLUnit,
  9.      Animate,
  10.      TEGLIcon;
  11.  
  12. var BounceIcon     : AnimateObject;
  13.  
  14. BEGIN
  15.    SetVideoChoices(TG_VGA,false);
  16.    easytegl;
  17.  
  18.    setfillStyle(widedotfill,lightgray);
  19.    bar(0,0,getmaxx,getmaxy);
  20.  
  21.    with BounceIcon do
  22.       begin
  23.      init;
  24.      addframe(@imageblankbut,-15,-3,14,37,10,0,0,black);
  25.      addframe(@imageblankbut,-15,3,14,37,10,0,0,black);
  26.      addframe(@imageblankbut,-15,3,14,37,10,0,0,black);
  27.      addframe(@imageblankbut,-15,-3,14,37,10,0,0,black);
  28.      sequence(1);
  29.  
  30.      ResetSequence;
  31.      addframe(@imageblankbut,15,-3,14,37,10,0,0,black);
  32.      addframe(@imageblankbut,15,3,14,37,10,0,0,black);
  33.      addframe(@imageblankbut,15,3,14,37,10,0,0,black);
  34.      addframe(@imageblankbut,15,-3,14,37,10,0,0,black);
  35.      sequence(2);
  36.  
  37.      Animateinit;
  38.      Origin(getmaxx div 2,getmaxy div 2);
  39.  
  40.      ClearKeyBoardBuf;
  41.      while not keypressed do
  42.         begin
  43.            sequence(1);
  44.            ResetFrame(0);
  45.            Animate(Destination(36,0));
  46.            Beep(1500,1,1);
  47.  
  48.            sequence(2);
  49.            ResetFrame(0);
  50.            Animate(Destination(560,0));
  51.            Beep(1500,1,1);
  52.         end;
  53.       end;
  54.  
  55.    TEGLSupervisor;
  56. END.
  57.